home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -serious- / programming / other / tandem / projects / asmfiles / test04.asm < prev    next >
Assembly Source File  |  1999-09-06  |  8KB  |  181 lines
  1. * 68020+ addressing modes with ([])
  2.  
  3. stt:
  4. sue: equ $1111
  5. jan: equ $11112222
  6.  
  7.  rts                       ;4E75
  8.  
  9. fred:
  10.  nop                       ;4E71
  11. bill:
  12.  nop                       ;4E71
  13.  
  14.  tst.l ([sue,a4],d1,jan.l)             ;4AB41127111111112222
  15.  tst.l ([jan.l,a4],d1,sue)             ;4AB41136111122221111
  16.  tst.l ([fred.l,a4],d1,bill.l)         ;4AB41137000000020000
  17.  tst.l ([jill.l,a4],d1,june.l)         ;4AB411370000080200000804
  18.  tst.l ([$1234,a4],d1*2,$87654321.l)   ;4AB41327123487654321
  19.  tst.l ([$1234.w,a4],d1*2,$87654321.l) ;4AB41327123487654321
  20.  tst.l ([$1234.l,a4],d1*2,$4321)       ;4AB41336000012344321
  21.  tst.l ([$12345678.l,a4],a1,$4321.w)   ;4AB49136123456784321
  22.  tst.l ([$12345678.l,a4],a1,$4321.l)   ;4AB491371234567800004321
  23.  
  24.  tst.l ([sue,a4,d1],jan.l)             ;4AB41123111111112222
  25.  tst.l ([jan.l,a4,d1],sue)             ;4AB41132111122221111
  26.  tst.l ([fred.l,a4,d1],bill.l)         ;4AB411330000000200000004
  27.  tst.l ([jill.l,a4,d1],june.l)         ;4AB411330000080200000804
  28.  tst.l ([$1234,a4,d1*2],$87654321.l)   ;4AB41323123487654321
  29.  tst.l ([$1234.w,a4,d1*2],$87654321.l) ;4AB41323123487654321
  30.  tst.l ([$1234.l,a4,d1*2],$4321)       ;4AB41332000012344321
  31.  tst.l ([$12345678.l,a4,a1.w],$4321.w) ;4AB49132123456784321
  32.  tst.l ([$12345678.l,a4,a1.w],$4321.l) ;4AB491331234567800004321
  33.  
  34.  tst.l ([fred,pc],d1,jan.l)            ;4ABB1127FF3A11112222
  35.  tst.l ([fred,pc],d1,sue)              ;4ABB1126FF301111
  36.  tst.l ([fred.l,pc],d1,bill.l)         ;4ABB1137FFFFFF2800000004
  37.  tst.l ([jill.l,pc],d1,june.l)         ;4ABB11370000071C00000804
  38.  tst.l ([fred,pc],d1*2,$87654321.l)    ;4ABB1327FF1087654321
  39.  tst.l ([fred,pc],d1*2,$4321)          ;4ABB1326FF064321
  40.  tst.l ([fred,pc],a1,$4321.w)          ;4ABB9126FEFE4321
  41.  tst.l ([fred,pc],a1,$4321.l)          ;4ABB9127FEF600004321
  42.  
  43.  tst.l ([fred,pc,d1],jan.l)            ;4ABB1123FEEC11112222
  44.  tst.l ([fred,pc,d1],sue)              ;4ABB1122FEE21111
  45.  tst.l ([fred.l,pc,d1],bill.l)         ;4ABB1133FFFFFEDA00000004
  46.  tst.l ([jill.l,pc,d1],june.l)         ;4ABB1133000006CE00000804
  47.  tst.l ([fred,pc,d1*2],$87654321.l)    ;4ABB1323FEC287654321
  48.  tst.l ([fred,pc,d1*2],$87654321.l)    ;4ABB1323FEB887654321
  49.  tst.l ([fred,pc,d1*2],$4321)          ;4ABB1322FEAE4321
  50.  tst.l ([fred,pc,a1.w],$4321.w)        ;4ABB9122FEA64321
  51.  tst.l ([fred,pc,a1.w],$4321.l)        ;4ABB9123FE9E00004321
  52.  
  53.  tst.l ([fred,zpc],d1,jan.l)            ;4ABB11A7FE9411112222
  54.  tst.l ([jan.l,zpc],d1,sue)             ;4ABB11B6111122221111
  55.  tst.l ([fred.l,zpc],d1,bill.l)         ;4ABB11B70000000200000004
  56.  tst.l ([jill.l,zpc],d1,june.l)         ;4ABB11B70000080200000804
  57.  tst.l ([fred,zpc],d1*2,$87654321.l)    ;4ABB13A7FE6887654321
  58.  tst.l ([fred,zpc],d1*2,$4321)          ;4ABB13A6FE5E4321
  59.  tst.l ([$1234.l,zpc],d1*2,$4321)       ;4ABB13B6000012344321
  60.  tst.l ([$12345678.l,zpc],a1,$4321.w)   ;4ABB91B6123456784321
  61.  tst.l ([$12345678.l,zpc],a1,$4321.l)   ;4ABB91B71234567800004321
  62.  
  63.  tst.l ([fred,zpc,d1],jan.l)            ;4ABB11A3FE3611112222
  64.  tst.l ([jan.l,zpc,d1],sue)             ;4ABB11B2111122221111
  65.  tst.l ([fred.l,zpc,d1],bill.l)         ;4ABB11B30000000200000004
  66.  tst.l ([jill.l,zpc,d1],june.l)         ;4ABB11B30000080200000804
  67.  tst.l ([fred,zpc,d1*2],$87654321.l)    ;4ABB13A3FE0A87654321
  68.  tst.l ([$1234.l,zpc,d1*2],$4321)       ;4ABB13B2000012344321
  69.  tst.l ([$12345678.l,zpc,a1.w],$4321.w) ;4ABB91B2123456784321
  70.  tst.l ([$12345678.l,zpc,a1.w],$4321.l) ;4ABB91B31234567800004321
  71.  
  72.  tst.l ([sue],d1,jan.l)                ;4AB011A7111111112222
  73.  tst.l ([jan.l],d1,sue)                ;4AB011B6111122221111
  74.  tst.l ([fred.l],d1,bill.l)            ;4AB011B70000000200000004
  75.  tst.l ([jill.l],d1,june.l)            ;4AB011B70000080200000804
  76.  tst.l ([$1234],d1*2,$87654321.l)      ;4AB013A7123487654321
  77.  tst.l ([$1234.w],d1*2,$87654321.l)    ;4AB013A7123487654321
  78.  tst.l ([$1234.l],d1*2,$4321)          ;4AB013B6000012344321
  79.  tst.l ([$12345678.l],a1,$4321.w)      ;4AB091B6123456784321
  80.  tst.l ([$12345678.l],a1,$4321.l)      ;4AB091B71234567800004321
  81.  
  82.  tst.l ([sue,d1],jan.l)                ;4AB011A3111111112222
  83.  tst.l ([jan.l,d1],sue)                ;4AB011B2111122221111
  84.  tst.l ([fred.l,d1],bill.l)            ;4AB011B30000000200000004
  85.  tst.l ([jill.l,d1],june.l)            ;4AB011B30000080200000804
  86.  tst.l ([$1234,d1*2],$87654321.l)      ;4AB013A3123487654321
  87.  tst.l ([$1234.w,d1*2],$87654321.l)    ;4AB013A3123487654321
  88.  tst.l ([$1234.l,d1*2],$4321)          ;4AB013B2000012344321
  89.  tst.l ([$12345678.l,a1.w],$4321.w)    ;4AB091B2123456784321
  90.  tst.l ([$12345678.l,a1.w],$4321.l)    ;4AB091B31234567800004321
  91.  
  92.  tst.l ([],d1,jan.l)                   ;4AB0119311112222 } Barfly 1197
  93.  tst.l ([],d1,sue)                     ;4AB011921111     } Barfly 1196
  94.  tst.l ([],d1,bill.l)                  ;4AB0119300000004 }
  95.  tst.l ([],d1,june.l)                  ;4AB0119300000804 } Devpac wrong -
  96.  tst.l ([],d1*2,$87654321.l)           ;4AB0139387654321 } treats as
  97.  tst.l ([],d1*2,$4321)                 ;4AB013924321     } preindexed
  98.  tst.l ([],a1,$4321.w)                 ;4AB091924321     }
  99.  tst.l ([],a1,$4321.l)                 ;4AB0919300004321 }
  100.  
  101.  tst.l ([d1],jan.l)                    ;4AB0119311112222
  102.  tst.l ([d1],sue)                      ;4AB011921111
  103.  tst.l ([d1],bill.l)                   ;4AB0119300000004
  104.  tst.l ([d1],june.l)                   ;4AB0119300000804
  105.  tst.l ([d1*2],$87654321.l)            ;4AB0139387654321
  106.  tst.l ([d1*2],$4321)                  ;4AB013924321
  107.  tst.l ([a1.w],$4321.w)                ;4AB091924321
  108.  tst.l ([a1.w],$4321.l)                ;4AB0919300004321
  109.  
  110.  tst.l ([],jan.l)                      ;4AB001D311112222
  111.  tst.l ([],sue)                        ;4AB001D21111
  112.  tst.l ([],bill.l)                     ;4AB001D300000004
  113.  tst.l ([],june.l)                     ;4AB001D300000804
  114.  tst.l ([],$87654321.l)                ;4AB001D387654321
  115.  tst.l ([],$4321)                      ;4AB001D24321
  116.  tst.l ([],$4321.w)                    ;4AB001D24321
  117.  tst.l ([],$4321.l)                    ;4AB001D300004321
  118.  
  119.  tst.l ([])                            ;4AB001D1
  120.  
  121.  tst.l ([sue],jan.l)                   ;4AB001E3111111112222
  122.  tst.l ([jan.l],sue)                   ;4AB001F2111122221111
  123.  tst.l ([fred.l],bill.l)               ;4AB001F30000000200000004
  124.  tst.l ([jill.l],june.l)               ;4AB001F30000080200000804
  125.  tst.l ([$1234],$87654321.l)           ;4AB001E3123487654321
  126.  tst.l ([$1234.w],$87654321.l)         ;4AB001E3123487654321
  127.  tst.l ([$1234.l],$4321)               ;4AB001F2000012344321
  128.  tst.l ([$12345678.l],$4321.w)         ;4AB001F2123456784321
  129.  tst.l ([$12345678.l],$4321.l)         ;4AB001F31234567800004321
  130.  
  131.  tst.l ([sue])                         ;4AB001E11111
  132.  tst.l ([jan.l])                       ;4AB001F111112222
  133.  tst.l ([fred.l])                      ;4AB001F1000000002
  134.  tst.l ([jill.l])                      ;4AB001F1000000802
  135.  tst.l ([$1234])                       ;4AB001E11234
  136.  tst.l ([$1234.w])                     ;4AB001E11234
  137.  tst.l ([$1234.l])                     ;4AB001F100001234
  138.  tst.l ([$12345678.l])                 ;4AB001F112345678
  139.  tst.l ([$12345678.l])                 ;4AB001F112345678
  140.  
  141.  tst.l ([],d1)                         ;4AB01191 }Barfly 1995 (1195/1995 ok)
  142.  tst.l ([],d1*2)                       ;4AB01391 }Devpac wrong - treats
  143.  tst.l ([],a1)                         ;4AB09191 }as preindexed
  144.  
  145.  tst.l ([a4],d1,jan.l)                 ;4AB4111711112222
  146.  tst.l ([a4],d1,sue)                   ;4AB411161111
  147.  
  148.  tst.l ([a4,d1],jan.l)                 ;4AB4111311112222
  149.  tst.l ([a4,d1],sue)                   ;4AB411121111
  150.  
  151.  tst.l ([pc],d1,jan.l)                 ;4ABB111711112222
  152.  tst.l ([pc],d1,sue)                   ;4ABB11161111
  153.  
  154.  tst.l ([pc,d1],jan.l)                 ;4ABB111311112222
  155.  tst.l ([pc,d1],sue)                   ;4ABB11121111
  156.  
  157.  tst.l ([zpc],d1,jan.l)                ;4ABB119711112222
  158.  tst.l ([zpc],d1,sue)                  ;4ABB11961111
  159.  
  160.  tst.l ([zpc,d1],jan.l)                ;4ABB119311112222
  161.  tst.l ([zpc,d1],sue)                  ;4ABB11921111
  162.  
  163.  tst.l ([a4],jan.l)                    ;4AB4015311112222
  164.  tst.l ([a4],sue)                      ;4AB401521111
  165.  
  166.  tst.l ([pc],jan.l)                    ;4ABB015311112222
  167.  tst.l ([pc],sue)                      ;4ABB01521111
  168.  
  169.  tst.l ([zpc],jan.l)                   ;4ABB01D311112222
  170.  tst.l ([zpc],sue)                     ;4ABB01D21111
  171.  
  172. jack:
  173. skp: equ jack-stt
  174.  
  175.  ds.b $0800-skp
  176.  
  177.  nop                                   ;4E71
  178. jill:
  179.  nop                                   ;4E71
  180. june:
  181.